home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / examples / conditional.s next >
Text File  |  1993-05-22  |  828b  |  53 lines
  1.  
  2. ********************************************************
  3. **
  4. ** Conditional Assembly Demo © 1993 by Florian W. Sauer
  5. **
  6. ** This little demo should show how conditional
  7. ** assembly works...
  8. **
  9. ********************************************************
  10.  
  11.     heap    O=100
  12.  
  13. aa    equ    1
  14. ab    set    (aa||2)&&2        ;set means 'changeable' value, but equ.
  15. ac    set    aa*2
  16.  
  17. * uncomment the following, whats the new result ?
  18. * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  19.  
  20. ;ab    set    aa
  21. ;ac    set    aa*(2-aa)
  22.  
  23.     .say go:
  24.     ifd aa
  25.         .say aa known
  26.     endc
  27.     ifd ab
  28.         .say ab known
  29.     endc
  30.     ifd ac
  31.         .say ac known
  32.     endc
  33.  
  34.     if aa=1
  35.         if ab=1
  36.             .say aa=1 ab=1
  37.         else
  38.             .say aa=1 ab#1
  39.             if ab=ac
  40.                 .say aa=1 (ab=ac)#1
  41.             endc
  42.         endc
  43.     else
  44.         .say aa#1 and b not known
  45.     endc
  46.     if aa=ab
  47.         if ab=ac
  48.             .say aa & ab & ac are
  49.             .say all the same... (=1)
  50.         endc
  51.     endc
  52.     .say fin!
  53.